home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 27 / CU Amiga Magazine's Super CD-ROM 27 (1998)(EMAP Images)(GB)[!][issue 1998-10].iso / CUCD / Programming / JForth / Extras / Clone / TestApps / App.f next >
Encoding:
FORTH Source  |  1992-05-31  |  228 b   |  15 lines

  1. include? clone cl:topfile
  2.  
  3. anew task-App.f
  4.  
  5. : SubWord  ( -- )
  6.   >newline    ." This is from an overlay program."   cr
  7. ;
  8.  
  9.  
  10. : App   ( -- )
  11.   >newline    ." This is from the main program."   cr
  12.   SubWord
  13.   ' SubWord  FreeOverlay
  14. ;
  15.